COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXTERNAL FUNCTION GETINF(ARRAY J,INSR,INBT,INCH,INMX,INDR),
C00009 ENDMK
C⊗;
EXTERNAL FUNCTION GETINF(ARRAY J,INSR,INBT,INCH,INMX,INDR),
RDSMPL(ARRAY N,BITS),GETIN2(ARRAY J,INSR,INBT,INCH,INMX,INDR),
RDSMP2(ARRAY N,BITS),GETIN3(ARRAY J,INSR,INBT,INCH,INMX,INDR),
RDSMP3(ARRAY N,BITS),GETIN4(ARRAY J,INSR,INBT,INCH,INMX,INDR),
RDSMP4(ARRAY N,BITS);
 
ARRAY INF, IN2, IN3, IN4(1536);
VARIABLE /CNT,/RD,/SCNT,INCH,INSR,INMX,INDR,INBT,INBUF,
/CNT2,/RD2,/SCNT2,INCH2,INSR2,INDR2,INBT2,INBUF2,
/CNT3,/RD3,/SCNT3,INCH3,INSR3,INDR3,INBT3,INBUF3,
/CNT4,/RD4,/SCNT4,INCH4,INSR4,INDR4,INBT4,INBUF4;
 
FUNCTION PRNTIT(CNT,INSR,INBT,INCH,INDR,INBUF);  
BEGIN  VARIABLE DUR;
  INBUF←1535-512*INBT;  DUR←INDR/INSR/INCH;
  PRINT "SRATE=",INSR," BITS=",12+INBT*6," NCHNS=",INCH,
  " MAXAMP=",INMX," DUR=",DUR;
  CNT←INBUF;  
END;

FUNCTION READIN(RD);
BEGIN 		<DON'T FORGET TO INIT AND SCNT ← 0;
  IF SCNT=0 THEN BEGIN  
    GETINF(INF,INSR,INBT,INCH,INMX,INDR); <HEADER IS READ INTO ARRAY INF.
    PRNTIT(CNT,INSR,INBT,INCH,INDR,INBUF);
  END;
  SCNT←SCNT+1; 
  IF SCNT > INDR THEN  BEGIN <CHECK TO SEE IF SMPL CNT IS EXCEEDED
     RD←0;  RETURN(RD); END;
  IF CNT > INBUF THEN BEGIN
     RDSMPL(INF,INBT);
     CNT←0;  END;
  RD←INF(CNT);
  CNT←CNT+1; <UPDATE THE COUNTER
  RETURN(RD); END; 

FUNCTION READI2(RD2);
BEGIN 		<DON'T FORGET TO INIT AND SCNT ← 0;
  IF SCNT2=0 THEN BEGIN  
    GETIN2(IN2,INSR2,INBT2,INCH2,INMX,INDR2); <HEADER IS READ INTO ARRAY INF.
    PRNTIT(CNT2,INSR2,INBT2,INCH2,INDR2,INBUF2);
    END;
  SCNT2←SCNT2+1;
  IF SCNT2 > INDR2 THEN  BEGIN <CHECK TO SEE IF SMPL CNT IS EXCEEDED
    RD2←0;  RETURN(RD2); END;
  IF CNT2 > INBUF2 THEN BEGIN
    RDSMP2(IN2,INBT2);
    CNT2←0;  END;
  RD2←IN2(CNT2); 
  CNT2←CNT2+1; <UPDATE THE COUNTER
  RETURN(RD2); END; 

FUNCTION READI3(RD3);
BEGIN 		<DON'T FORGET TO INIT AND SCNT ← 0;
  IF SCNT3=0 THEN BEGIN  
    GETIN3(IN3,INSR3,INBT3,INCH3,INMX,INDR3); <HEADER IS READ INTO ARRAY INF.
    PRNTIT(CNT3,INSR3,INBT3,INCH3,INDR3,INBUF3);
  END;
  SCNT3←SCNT3+1;
  IF SCNT3 > INDR3 THEN  BEGIN <CHECK TO SEE IF SMPL CNT3 IS EXCEEDED
    RD3←0;  RETURN(RD3); END;
  IF CNT3 > INBUF3 THEN BEGIN
    RDSMP3(IN3,INBT3);
    CNT3←0;  END;
  RD3←IN3(CNT3);
  CNT3←CNT3+1; <UPDATE THE COUNTER
  RETURN(RD3); END; 

FUNCTION READI4(RD4);
BEGIN 		<DON'T FORGET TO INIT AND SCNT4 ← 0;
  IF SCNT4=0 THEN BEGIN  
    GETIN4(IN4,INSR4,INBT4,INCH4,INMX,INDR4); <HEADER IS READ INTO ARRAY INF.
    PRNTIT(CNT4,INSR4,INBT4,INCH4,INDR4,INBUF4);
  END;
  SCNT4←SCNT4+1;
  IF SCNT4 > INDR4 THEN  BEGIN <CHECK TO SEE IF SMPL CNT4 IS EXCEEDED
    RD4←0;  RETURN(RD4); END;
  IF CNT4 > INBUF4 THEN BEGIN
    RDSMP4(IN4,INBT4);
    CNT4←0;  END;
  RD4←IN4(CNT4);
  CNT4←CNT4+1; <UPDATE THE COUNTER
  RETURN(RD4); END; 

<********************************************************************
SETMAG;1 10
SEG(F6);1 0 1 100;
<SEG(F6);0 0 .7 20  0 50 1 80 0 100; <PUTS ENVELOPE ON INPUT SOUND.
INSTRUMENT READA;
OSCIL(P4,MAG/P2,F6);
OUTA←OUTA+U1*READIN(RD);
END;
INSTRUMENT READB;
OSCIL(P4,MAG/P2,F6);
OUTA←OUTA+U1*READI2(RD2);
END;
INSTRUMENT READC;
OSCIL(P4,MAG/P2,F6);
OUTA←OUTA+U1*READI3(RD3);
END;
INSTRUMENT READD;
OSCIL(P4,MAG/P2,F6);
OUTA←OUTA+U1*READI4(RD4);
END;

OUTFILE←"OU.MSB";
PLAY; READA 0  .3702  0 2; 
INFILE←"U";      <FILE NAME TO BE READ IN FOR NOTE ABOVE THIS LINE!!!
SCNT←0; 
  <SCNT MUST BE SET TO ZERO BEFORE NOTE TO START READIN CORRECTLY!!
READB .3  .74  0 1; 
INFILE←"A";      <FILE NAME TO BE READ IN.
SCNT2←0;
READC .8 .37  0 .7; 
INFILE←"I";      <FILE NAME TO BE READ IN.
SCNT3←0;
READA 1.3 .37  0  .8;  SCNT←0;
INFILE←"U";      <FILE NAME TO BE READ IN FOR NOTE ABOVE THIS LINE!!!
FINI;